unit uBeaRLibMG;

interface

uses uMapGenerator;

procedure GenMap(X, Y, ID: Integer; var A: TBeaRLibMap; S: Integer); stdcall;
function SetRandSeed(Seed: Integer; doSet: Boolean): Integer; stdcall;

implementation

procedure GenMap(X, Y, ID: Integer; var A: TBeaRLibMap; S: Integer); stdcall;
begin
  CreateMap(X, Y, ID, A, S);
end;

function SetRandSeed(Seed: Integer; doSet: Boolean): Integer; stdcall;
begin
  if doSet then
    RandSeed := Seed;
  Result := RandSeed;  
end;

end.

